home *** CD-ROM | disk | FTP | other *** search
/ Chip 2002 February / CHIPCD_02_2002.iso / Internet / Macromedia ColdFusion Server 5 / coldfusion-50-win-us.exe / data1.cab / Examples / CFDOCS / exampleapps / email / auth.cfm < prev    next >
Encoding:
Text File  |  2001-06-13  |  825 b   |  28 lines
  1. <CFINCLUDE TEMPLATE="_header.cfm">
  2.  
  3. <CFSET Session.Email = Form.Email>
  4. <CFSET Session.Username = Form.Username>
  5. <CFSET Session.Password = Form.Password>
  6. <CFSET Session.POPserver = Form.POPserver>
  7. <CFSET Session.SMTPserver = Form.SMTPserver>
  8.  
  9. <CFIF IsDefined("Form.SaveInfo")>
  10.     <CFSET Expires = "NEVER">
  11. <CFELSE>
  12.     <CFSET Expires = "NOW">
  13. </CFIF>
  14.  
  15. <CFCOOKIE NAME="SaveInfo" VALUE="TRUE" EXPIRES="#Expires#">
  16.  
  17. <CFLOOP LIST="Email,Username,POPserver,SMTPserver" INDEX="CurrItem">
  18.     <CFCOOKIE NAME="#CurrItem#" VALUE="#evaluate('Form.' & CurrItem)#" EXPIRES="#Expires#">
  19. </CFLOOP>
  20.  
  21. <FONT FACE="Helvetica" SIZE="-1"><B>Attempting to retrieve messages;<BR>
  22. this may take a few moments.</B></FONT>
  23.  
  24. <SCRIPT LANGUAGE="JavaScript">
  25. location.replace('refresh.cfm')
  26. </SCRIPT>
  27.  
  28. <CFINCLUDE TEMPLATE="_footer.cfm">